home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / modules / fw_st / Duplicate_Objects.fw < prev    next >
Encoding:
Text File  |  1995-02-10  |  554 b   |  31 lines
  1. /*
  2.  * Duplicate_Objects.fw
  3.  *
  4.  * USAGE: Duplicate_Objects.fw
  5.  *
  6.  * HISTORY:
  7.  * v1.01    aligned with the new server design v1.10
  8.  *
  9.  * $(C): (1994, Rocco Coluccelli, Bologna)
  10.  * $VER: Duplicate_Objects.fw 1.01 (30.Nov.1994)
  11.  */
  12.  
  13.  
  14. oleport        = 'OLE_SERVER'
  15. olerexx        = 'OLE.rexx'
  16.  
  17. userport    = ADDRESS()
  18. userscreen    = 'Workbench'
  19. module1        = 'DupObjects.ole'
  20. module2        = 'DupObjects.fw'
  21.  
  22. IF ~SHOW('P',oleport) THEN DO
  23.     ADDRESS COMMAND
  24.     "Run >NIL: Rx" olerexx
  25.     "WaitForPort" oleport
  26.     END
  27.  
  28. CALL SendParsed(oleport,'NEWJOB',userport,userscreen,module1,module2)
  29.  
  30. EXIT 0
  31.